home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / game / shoot / ADoomPPC_src.lha / ADoomPPC_src / amiga_main.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-09-29  |  8.0 KB  |  367 lines
  1. // Emacs style mode select   -*- C++ -*- 
  2. //-----------------------------------------------------------------------------
  3. //
  4. // $Id:$
  5. //
  6. // Copyright (C) 1993-1996 by id Software, Inc.
  7. //
  8. // This source is available for distribution and/or modification
  9. // only under the terms of the DOOM Source Code License as
  10. // published by id Software. All rights reserved.
  11. //
  12. // The source is distributed in the hope that it will be useful,
  13. // but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. // FITNESS FOR A PARTICULAR PURPOSE. See the DOOM Source Code License
  15. // for more details.
  16. //
  17. // $Log:$
  18. //
  19. // DESCRIPTION:
  20. //    Main program, simply calls D_DoomMain high level loop.
  21. //
  22. //-----------------------------------------------------------------------------
  23.  
  24. #ifdef WARPUP
  25. const char amigaversion[] = "$VER: ADoomWOS 1.5 (29.09.2000)";
  26. #else
  27. const char amigaversion[] = "$VER: ADoomPPC 1.5 (29.09.2000)";
  28. #endif
  29.  
  30. long __oslibversion = 38;    /* we require at least OS3.0 for LoadRGB32() */
  31. char __stdiowin[] = "CON:0/20/640/140/ADoomPPC/AUTO/CLOSE/WAIT";
  32.  
  33. #include <stdio.h>
  34. #include <stdlib.h>
  35.  
  36. #include <exec/exec.h>
  37. #include <workbench/startup.h>
  38. #include <workbench/workbench.h>
  39. #include <workbench/icon.h>
  40. #ifdef WARPUP
  41. #include <powerpc/powerpc.h>
  42. #include <clib/powerpc_protos.h>
  43. #else
  44. #include <PowerUP/ppclib/ppc.h>
  45. #endif
  46.  
  47. #include <proto/exec.h>
  48. #include <proto/icon.h>
  49. #include <proto/utility.h>
  50. #include <clib/alib_protos.h>
  51.  
  52. #include "doomdef.h"
  53.  
  54. #include "m_argv.h"
  55. #include "d_main.h"
  56. #include "i_system.h"
  57. #include "m_fixed.h"
  58.  
  59. /**********************************************************************/
  60.  
  61. int VERSION = 110;
  62.  
  63. int cpu_type;
  64. int bus_clock;
  65. int bus_MHz;
  66. double tb_scale_lo;
  67. double tb_scale_hi;
  68.  
  69. /**********************************************************************/
  70. #ifdef __SASC
  71. extern int _WBArgc;
  72. extern char **_WBArgv;
  73. #endif
  74.  
  75. #ifdef MORPHOS
  76. struct UtilityBase *UtilityBase = NULL;
  77. #endif
  78.  
  79. #ifdef WARPUP
  80. struct Library *IconBase = NULL;
  81. static UBYTE **ttypes = NULL;
  82. void main_cleanup(void);
  83. #endif
  84.  
  85. #ifdef __VBCC__
  86. FILE *conout, *oldstderr, *oldstdout;
  87. #endif
  88.  
  89. int main (int argc, char* argv[])
  90. { 
  91.   int p;
  92.     ULONG i, i2;
  93.   double pll;
  94.  
  95. #ifdef __SASC
  96.     if (argc == 0) {
  97.         argc = _WBArgc;
  98.         argv = _WBArgv;
  99.         myargc = argc;
  100.         if ((myargv = malloc(sizeof(char *)*MAXARGVS)) == NULL)
  101.             I_Error ("malloc(%d) failed", sizeof(char *)*MAXARGVS);
  102.         memset (myargv, 0, sizeof(char *)*MAXARGVS);
  103.         memcpy (myargv, argv, sizeof(char *)*myargc);
  104.     }
  105.     else {
  106.         myargc = argc;
  107.         myargv = argv;
  108.     }
  109. #else
  110.     if (argc == 0) {
  111.         atexit(main_cleanup);
  112.  
  113. #ifdef __VBCC__
  114.         if ((conout = fopen(__stdiowin, "wb")) == NULL)
  115.             exit(1);
  116.         oldstderr = stderr;
  117.         oldstdout = stdout;
  118.         stderr = conout;
  119.         stdout = conout;
  120. #endif
  121.  
  122.         if ((myargv = malloc(sizeof(char *)*MAXARGVS)) == NULL)
  123.             I_Error ("malloc(%d) failed", sizeof(char *)*MAXARGVS);
  124.         memset (myargv, 0, sizeof(char *)*MAXARGVS);
  125.         if ((IconBase = OpenLibrary("icon.library", 0)) == NULL)
  126.             I_Error ("Can't open icon.library v0");
  127.         if ((ttypes = ArgArrayInit(argc, (UBYTE **)argv)) == NULL)
  128.             I_Error ("Can't read tooltypes");
  129.         myargc = 1;
  130.         myargv[0] = "ADoomWOS";
  131.         while(ttypes[myargc-1] != NULL) {
  132.             myargv[myargc] = ttypes[myargc-1];
  133.             myargc++;
  134.         }
  135.     }
  136.     else {
  137.         myargc = argc;
  138.         myargv = argv;
  139.     }
  140. #endif
  141.  
  142.     printf ("%s\n", &amigaversion[6]);
  143.  
  144. #ifdef WARPUP
  145.     printf ("\nADoomWOS parameters are:\n\n    ");
  146. #else
  147.   printf ("\nADoomPPC parameters are:\n\n    ");
  148. #endif
  149.  
  150.   for (i = 1 ; i < myargc; i++)
  151.     printf (" %s", myargv[i]);
  152.   printf ("\n\n");
  153.  
  154. #if defined(MORPHOS)
  155.     p = M_CheckParm ("-cpu");
  156.     if (p && p < myargc - 1) {
  157.         cpu_type = atoi (myargv[p+1]);
  158.     }
  159.   switch (cpu_type) {
  160.     case 3:
  161.       printf ("\nCPU is PPC603 ");
  162.       break;
  163.     case 4:
  164.       printf ("\nCPU is PPC604 ");
  165.       break;
  166.     case 5:
  167.       printf ("\nCPU is PPC602 ");
  168.       break;
  169.     case 6:
  170.       printf ("\nCPU is PPC603e ");
  171.       break;
  172.     case 7:
  173.       printf ("\nCPU is PPC603e+ ");
  174.       break;
  175.     case 8:
  176.       printf ("\nCPU is PPC604e ");
  177.       break;
  178.     default:
  179.       printf ("\nCPU is PPC ");
  180.       break;
  181.   }
  182.     p = M_CheckParm ("-bus");
  183.   if (p && p < myargc - 1) {
  184.     bus_clock = atoi (myargv[p+1]);
  185.   }
  186.   bus_MHz = bus_clock / 1000000;
  187.   printf("Bus clock is %d MHz.\n\n", bus_MHz);
  188.  
  189. #elif defined(WARPUP)
  190.     {
  191.     struct TagItem ti_cputype[] = {{GETINFO_CPU, 0}, {TAG_END, 0}};
  192.     struct TagItem ti_cpuclock[] = {{GETINFO_CPUCLOCK, 0}, {TAG_END, 0}};
  193.     struct TagItem ti_busclock[] = {{GETINFO_BUSCLOCK, 0}, {TAG_END, 0}};
  194.  
  195.     GetInfo (ti_cputype);
  196.     cpu_type = ti_cputype[0].ti_Data;
  197.     switch (cpu_type) {
  198.       case CPUF_603:
  199.         printf ("\nCPU is PPC603 ");
  200.         break;
  201.       case CPUF_604:
  202.         printf ("\nCPU is PPC604 ");
  203.         break;
  204.       case CPUF_603E:
  205.         printf ("\nCPU is PPC603e ");
  206.         break;
  207.       case CPUF_604E:
  208.         printf ("\nCPU is PPC604e ");
  209.         break;
  210.       case CPUF_620:
  211.         printf ("\nCPU is PPC620 ");
  212.         break;
  213.       default:
  214.         printf ("\nCPU is PPC ");
  215.         break;
  216.     }
  217.  
  218.     GetInfo (ti_cpuclock);
  219.     bus_clock = ti_cpuclock[0].ti_Data;
  220.     printf ("running at %d MHz\n", bus_clock / 1000000);
  221.  
  222.     GetInfo (ti_busclock);
  223.     bus_clock = ti_busclock[0].ti_Data;
  224.         p = M_CheckParm ("-bus");
  225.       if (p && p < myargc - 1) {
  226.             bus_clock = atoi (myargv[p+1]);
  227.       }
  228.     bus_MHz = bus_clock / 1000000;
  229.     printf("Bus clock is %d MHz.\n\n", bus_MHz);
  230.     }
  231. #else /* PowerUP */
  232.   cpu_type = PPCGetAttr(PPCINFOTAG_CPU);
  233.   p = M_CheckParm ("-cpu");
  234.   if (p && p < myargc - 1) {
  235.     cpu_type = atoi (myargv[p+1]);
  236.   }
  237.   switch (cpu_type) {
  238.     case 3:
  239.       printf ("\nCPU is PPC603 ");
  240.       break;
  241.     case 4:
  242.       printf ("\nCPU is PPC604 ");
  243.       break;
  244.     case 5:
  245.       printf ("\nCPU is PPC602 ");
  246.       break;
  247.     case 6:
  248.       printf ("\nCPU is PPC603e ");
  249.       break;
  250.     case 7:
  251.       printf ("\nCPU is PPC603e+ ");
  252.       break;
  253.     case 8:
  254.       printf ("\nCPU is PPC604e ");
  255.       break;
  256.     default:
  257.       printf ("\nCPU is PPC ");
  258.       break;
  259.   }
  260.  
  261.   bus_clock = PPCGetAttr(PPCINFOTAG_CPUCLOCK);
  262.   printf ("running at %d MHz ", bus_clock);
  263.   if (!bus_clock)
  264.     bus_clock = 50000000;
  265.   else
  266.     bus_clock = bus_clock * 1000000;
  267.   i = PPCGetAttr(PPCINFOTAG_CPUPLL);
  268.   if ((i & 0xf0000000) && !(i & 0x0ffffff0))
  269.     i2 = i >> 28;     /* work around bug in ppc.library */
  270.   else
  271.     i2 = i & 0x0000000f;
  272.   switch (i2) {    /* see http://mx1.xoom.com/silicon/docs/ppc_pll.html */
  273.     case 0:
  274.     case 1:
  275.     case 2:
  276.     case 3:
  277.       pll = 1.0;            // PLL is 1:1 (or bypassed)
  278.       break;
  279.     case 4:
  280.     case 5:
  281.       pll = 2.0;            // PLL is 2:1
  282.       break;
  283.     case 6:
  284.       pll = 2.5;
  285.       break;
  286.     case 7:
  287.       pll = 4.5;
  288.       break;
  289.     case 8:
  290.     case 9:
  291.       pll = 3.0;            // PLL is 3:1
  292.       break;
  293.     case 10:
  294.       pll = 4.0;
  295.       break;
  296.     case 11:
  297.       pll = 5.0;
  298.       break;
  299.     case 12:
  300.       if ((cpu_type == 4) || (cpu_type == 8))
  301.         pll = 1.5;            // PLL is 1.5:1
  302.       else
  303.         pll = 4.0;            // PLL is 4:1
  304.       break;
  305.     case 13:
  306.       pll = 6.0;            // PLL is 6:1
  307.       break;
  308.     case 14:
  309.       pll = 3.5;            // PLL is 3.5:1
  310.       break;
  311.     default:
  312.       pll = 3.0;
  313.       break;
  314.   }
  315.  
  316.   printf ("using a PLL divisor of %3.1f.\n", pll);
  317.  
  318.   bus_clock = (int)((double)bus_clock / pll);
  319.   p = M_CheckParm ("-bus");
  320.   if (p && p < myargc - 1) {
  321.     bus_clock = atoi (myargv[p+1]);
  322.   }
  323.   bus_MHz = bus_clock / 1000000;
  324.   printf("Bus clock is %d MHz.\n\n", bus_MHz);
  325. #endif
  326.  
  327.   tb_scale_lo = ((double)(bus_clock >> 2)) / 35.0;
  328.   tb_scale_hi = (4.294967296E9 / (double)(bus_clock >> 2)) * 35.0;
  329.  
  330. /* The original fixed point code is faster on GCC */
  331. #if !defined(__GNUC__)
  332.   SetFPMode ();  /* set FPU rounding mode to "trunc towards -infinity" */
  333. #endif
  334.  
  335.   p = M_CheckParm ("-forceversion");
  336.   if (p && p < myargc - 1)
  337.     VERSION = atoi (myargv[p+1]);
  338.  
  339.   D_DoomMain ();
  340.  
  341.   return 0;
  342. }
  343.  
  344. #ifndef __SASC
  345. void main_cleanup(void)
  346. {
  347.     if (ttypes != NULL) {
  348.         ArgArrayDone();
  349.         ttypes = NULL;
  350.     }
  351.  
  352.     if (IconBase != NULL) {
  353.         CloseLibrary(IconBase);
  354.         IconBase = NULL;
  355.     }
  356.  
  357. #ifdef __VBCC__
  358.     if (conout != NULL) {
  359.         stdout = oldstdout;
  360.         stderr = oldstderr;
  361.         fclose(conout);
  362.         conout = NULL;
  363.     }
  364. #endif
  365. }
  366. #endif
  367.